home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 34 (1993-06)(MegaDisc Digital Publishing)(AU)(Disk 1 of 2)[WB].zip / MegaDisc 34 (1993-06)(MegaDisc Digital Publishing)(AU)(Disk 1 of 2)[WB].adf / Programs / IntConv32 / test.asm < prev    next >
Assembly Source File  |  1993-06-21  |  1KB  |  94 lines
  1.  
  2.     INCLUDE    "intdefs.i"
  3.     INCLUDE    "intconv32.i"
  4.  
  5. test    macro
  6.     lea    -1000(a4),a0
  7.     move.l    \2,d0
  8.     move.l    \1,d1
  9.     bsr    u2str64
  10.     lea    -1000(a4),a0
  11.     bsr    str2u64
  12.     cmp.l    \2,d0
  13.     bne    BAD
  14.     cmp.l    \1,d1
  15.     bne    BAD
  16.     endm
  17.  
  18. test32    macro
  19.     lea    -1000(a4),a0
  20.     move.l    \2,d0
  21.     move.l    Base,d1
  22.     bsr    u2str32
  23.     lea    -1000(a4),a0
  24.     suba.l    a1,a1
  25.     move.l    Base,d1
  26.     bsr    str2u32
  27.     cmp.l    \2,d0
  28.     bne    BAD
  29. ;    cmp.l    \1,d1
  30. ;    bne    BAD
  31.     endm
  32.  
  33. AA:    link    a4,#-1000
  34.     moveq    #36,Base
  35. testa:
  36.     moveq    #15-1+22,Digit
  37.     lea    eot64,a5
  38.     clr.l    d3
  39. testit:
  40.     move.l    -(a5),a2
  41. ;    move.l    -(a5),a3
  42.     test32    a3,a2
  43.     subq.l    #1,d0
  44.     move.l    d0,a2
  45.     test32    a3,a2
  46.     addq.l    #2,d0
  47.     move.l    d0,a2
  48.     test32    a3,a2
  49.     dbra    Digit,testit
  50.     sub.b    #1,Base
  51.     cmp.b    #1,Base
  52.     bne    testa
  53. ZZ:
  54.     unlk    a4
  55.     rts
  56.  
  57. BAD:
  58.     move.l    #$DEADBEEF,d0
  59.     bra    ZZ
  60.  
  61. tbl64:
  62.     dc.l    $D0BEF00D,$FEEDBEEF
  63.     dc.l    $8AC72304,$89E80000
  64.     dc.l    $0DE0B6B3,$A7640000
  65.     dc.l    $01634578,$5D8A0000
  66.     dc.l    $002386F2,$6FC10000
  67.     dc.l    $00038D7E,$A4C68000
  68.     dc.l    $00005AF3,$107A4000
  69.     dc.l    $00000918,$4E72A000
  70.     dc.l    $000000E8,$D4A51000
  71.     dc.l    $00000017,$4876E800
  72.     dc.l    $00000002,$540BE400
  73. ;    dc.l    $00000000,$3B9ACA00
  74.  
  75. tbl32:
  76.     dc.l    $12345678
  77.     dc.l    $01010101
  78.     dc.l    $10101010
  79.     dc.l    $DEAFF00D
  80.     dc.l    $A6546543
  81.     dc.l    $3B9ACA00
  82.     dc.l    $05F5E100
  83.     dc.l    $00989680
  84.     dc.l    $000F4240
  85.     dc.l    $000186A0
  86.     dc.l    $00002710
  87.     dc.l    $000003E8
  88.     dc.l    $00000064
  89.     dc.l    $0000000A
  90.     dc.l    $1
  91. eot64:
  92.     END
  93.  
  94.